home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / der wurm [lgk] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 1 rem ****************
  2. 2 rem *   der wurm   *
  3. 3 rem *              *
  4. 4 rem * (c)..by      *
  5. 5 rem *     logiker  *
  6. 6 rem * 14. mar. 94  *
  7. 7 rem ****************...freeware
  8. 10 poke53280,0:poke53281,0:clr:f$="[159][156][158][149][150][151]"
  9. 20 a=247:x=1:hi=1600:goto240
  10. 30 foru=1to9
  11. 40 readzz(u):readzs(u):kr(u)=1023+zz(u)*40+zs(u)
  12. 50 next:return
  13. 60 print"[147]lgk[146] [166]";
  14. 70 a=247:x=1
  15. 80 pokekr(1),177
  16. 90 js=peek(56321)
  17. 100 ifjs<244orjs=255thenjs=a
  18. 110 a=js
  19. 120 ifz<24and(jsand2)=0thenprint"[157][166]";:goto160
  20. 130 ifs<39and(jsand8)=0thenprint"[166]";:goto160
  21. 140 ifs>1and(jsand4)=0thenprint"[157][157][166]";:goto160
  22. 150 if(jsand1)=0thenprint"[145][157][166]";
  23. 160 gosub180
  24. 165 ifx=10then420
  25. 170 goto90
  26. 180 z=peek(214)
  27. 190 s=peek(211)
  28. 200 if(z=zz(x))and(s=zs(x))thenx=x+1:print"[157]*";:pokekr(x),176+x:printmid$(f$,x,1);
  29. 220 return
  30. 230 data10,10,18,11,4,30,19,20,23,36,4,4,10,20,3,34,7,7
  31. 240 print"[147] logiker/t-c praesentiert:  der wurm [146]
  32. 250 [153]"derwurmwaitistunterwegs.ermussjedezahlvon1bis9'essen',";
  33. 260 [153]"umzuge-winnen!";
  34. 270 [153]"verwendejoystickinport1.
  35. 280 print"spielarten:
  36. 290 [153]"a)vorgegeben
  37. 300 print"b)zufaellig
  38. 305 [153]"c)letztekombinationnocheinmal
  39. 320 print"logiker/t-cpraesentiert: der wurm [146]":print"[145][145][145][145]ihrewahl: ";
  40. 330 print"[157][175]";:geta$:print"[157] ";:ifa$=""then330
  41. 340 ifa$="a"thenrestore:gosub30:ti$="000000":goto60
  42. 350 ifa$="b"thengosub370:ti$="000000":goto60
  43. 355 ifa$="c"andzz(5)<>0thenti$="000000":goto60
  44. 360 goto330
  45. 370 foru=1to9
  46. 380 zz(u)=1+int(rnd(1)*24):zs(u)=int(rnd(1)*35):kr(u)=1023+zz(u)*40+zs(u)
  47. 390 next:return
  48. 420 dt=ti:ifdt<hithenhi=dt
  49. 430 print"lgk[146][157][157][157][157]deinezeit:";dt;"high:";hi;"[146]"
  50. 440 goto250
  51.